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^40 1 

//USERN UMBER 1 JOB 1/ CATALOG' 

//JOBCAT DD DSN=XXXX. UK, DISP=SHR ^ 402 

//DEFCL EXEC PGM=PROGRAM1. REGION=1024K, TIME=1439 
//CLVOL1 DD VOL=SER=VOL1, DISP=OLD, UNIT=8598 --^403 
//SYSPRINT DD SYSOUT=A 
//SYSIN DD * 

DEFINE CLUSTER (NAME (XXX. XX. XXXX) — 
FILE(A00001) — 
VOLUME (XYZ1) - 
CYL (5) — 
SHR (2) — 
CISZ(4096) — 
RECORDSIZE (4089 4089) — 
SPEED — 
UNIQUE — 
CATALOG (XXXX. UK) ', 

'* ^404 
//ALLOCATE EXEC PGM=PROGRAM2, REGION=1024K 

//ABCSOBJ DD DSN=XXXX. YYYY. ZZZZ. DISP=(NEW. CATLG), 

// SPACE=(CYL.(1.1,7)), 4Q5 

// VOL=SER=VOL2. UNIT=8598, 

// DCB=(RECFM=U, BLKSIZE=6144, DSORG=PO) 

// 
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